home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / brushes.e < prev    next >
Encoding:
Text File  |  2004-08-03  |  1.4 KB  |  50 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. #define Image(x,i) ImageObject, FA_InputMode,i, FA_SetMax,TRUE, 'FA_Image_Spec',x, FA_Back,FI_None, End
  6.  
  7. PROC main()
  8.    DEF app,win
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       app := AppObject,
  12.          FA_ColorScheme,  'c:7878A0,c:555577,c:000000',
  13.  
  14.          Child, win := WindowObject,
  15.             FA_Back,          'P:Feelin:Images/StripPurple.iff',
  16.             FA_Window_Title,  'Feelin : Brushes',
  17.             FA_Window_Open,   TRUE,
  18.  
  19.             Child, VGroup,
  20.                Child, ImageObject,
  21.                   FA_SetMax,TRUE,
  22.                  'FA_Image_Spec',  'B:Grimy.bsh',
  23.                   FA_ColorScheme,  'c:FFDCA0,c:AA7864',
  24.                End,
  25.  
  26.                Child, HGroup,
  27.                   Child, Image('c:FF0000,c:00FF00',  FV_InputMode_Toggle),
  28.                   Child, Image('B:ArrowUp.fb0',      FV_InputMode_Toggle),
  29.                   Child, Image('B:ArrowUpG.fb0',     FV_InputMode_Release),
  30.                   Child, Image('B:CheckMark.fb0',    FV_InputMode_Toggle),
  31.                   Child, ImageObject, FA_InputMode,FV_InputMode_Toggle, FA_SetMax,TRUE,
  32.                    FA_ColorScheme,'c:FFDCA0,c:AA7864' ,'FA_Image_Spec','B:CheckMark.fb0', End,
  33.                   Child, Image('B:Be/CheckMark.fb0', FV_InputMode_Toggle),
  34.                   Child, Image('B:Be/ArrowDown.fb0', FV_InputMode_Release),
  35.                End,
  36.             End,
  37.          End,
  38.       End
  39.  
  40.       IF app
  41.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  42.          F_DoA(app,FM_Application_Run,NIL)
  43.          F_DisposeObj(app)
  44.       ENDIF
  45.  
  46.       CloseLibrary(feelinbase)
  47.    ENDIF
  48. ENDPROC
  49.  
  50.